home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.fra < prev    next >
Encoding:
Text File  |  1993-11-19  |  17.1 KB  |  716 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Jun 1 1993;3.2
  3. ; Apr 8 1993 hs, Jun 1 1993 hg
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;TFPL 8-6-93
  38. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  39. ;CONFIG ColorSet = 55
  40. ;TFPL
  41. ;  default destination drive
  42. PARSE_PATH <$CurDir>
  43. SET def_dest = C:\
  44. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  45.  
  46. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  47. SET def_cdtype = High Sierra
  48. SET def_driver = FS_HSGEN
  49. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  50. SET def_cdtype = ISO
  51. SET def_driver = FS_ISGEN
  52. :ok_driver
  53.  
  54. ;  language
  55. SET def_lang = <$Language>
  56.  
  57. ; application name(s) (4 char ident(s) on CD-ROM)
  58. READFILE names = <ins>\APPLNAME.
  59.  
  60. ; product name (application name for batch file, subdirectory name)
  61. READFILE prod = <ins>\PRODNAME.
  62.  
  63. ; default dest drive and directory
  64. PARSE_PATH <def_dest><prod>.CD
  65. SET dstdrive = <$Drive>
  66. SET path = <$Dir>
  67. CD <dstdrive>\
  68.  
  69. ; read and display Application Installation Screen
  70. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  71. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  72. GOTO show_banner
  73. :no_banner
  74. SET screen =
  75. ----       CD Answer Installation pour:\n\n
  76. ----              <prod>\n\n
  77. ----       Application(s): <names>
  78. :show_banner
  79. CLEAR
  80. TEXT <screen>
  81. SET screen =
  82. WAIT
  83.  
  84. GOTO okdir
  85. :getdir
  86. CLEAR
  87. TEXT \nError -\n\n
  88. ---- Le chemin d'accès <dstdrive><path> n'est pas autorisé!
  89. ---- Pour que l'installation du logiciel reussise, il faut qu'il y ait
  90. ---- un nom valide de sous-répertoire et d'unité.
  91. WAIT
  92. :okdir
  93. CLEAR
  94. TEXT Le logiciel d'extraction doit être installé sur votre disque dur ou sur un
  95. ---- disquette formatée.  Les valeurs standards sont <dstdrive> pour l'unité (le
  96. ---- disque dur généralement) et un sous-répertoire désigné sous le nom de
  97. ---- <path>.  Pour utiliser ces valeurs, appuyez à
  98. ---- deux reprises sur ─┘ (Entrée).  Si vous voulez les modifier, tapez
  99. ---- le nouveau nom de l'unité et du sous-répertoire en regard de l'invite
  100. ---- appropriée, puis appuyez sur ─┘ (Entrée)
  101. INPUT 6,8,5 dstdrive  = Installation sur unité        ?
  102. INPUT 6,10,40 path    = Installation dans répertoire  ?
  103. SET dest = <dstdrive><path>
  104. SET confile = <ins>\_DW_.CFG
  105.  
  106. IF "<dstdrive>"=="" GOTO getdir
  107. IF "<path>"=="\" GOTO getdir
  108. IF "<path>"=="" GOTO getdir
  109. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  110.  
  111. CD <dstdrive>\
  112.  
  113. IF NOT DIREXISTS <dest> GOTO nopath
  114. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  115. CLEAR
  116. TEXT Le répertoire "<dest>" existe déjà.
  117. NEWMENU 1, 3, 67
  118. ;TFPL -8-6-93
  119. MENU Installer le logical et seulement l'interface françcias
  120. MENU Installer le logical et les interfaces pour toutes les langues
  121. ;TFPL
  122. MENU Supprimez l'ancienne version; n'installez pas le nouveau
  123. MENU Modifiez la configuration; ne copiez pas le logiciel
  124. MENU Interrompez l'installation sans faire aucune modification
  125. ENDCHOICES
  126.  
  127. ;TFPL -8-6-93
  128. CHOICE 1
  129. CLEAR
  130. TEXT Effacement du contenu antérieur de <dest>...
  131. FOREACH name = <names>
  132.  DEL <dest>\<name>*.*
  133. NEXT
  134. DEL <dest>\FS_*.DRV
  135. DEL <dest>\SC_*.DRV
  136. DEL <dest>\PR_*.DRV
  137. DEL <dest>\GR_*.DRV
  138. DEL <dest>\_DW_*.*
  139. DEL <dest>\ADL_MSGS.*
  140. DEL <dest>\DW.EXE
  141. DEL <dest>\UPDATE.EXE
  142. SET ch = 2
  143. GOTO okpath
  144.  
  145. ;TFPL
  146.  
  147. CHOICE 2
  148. CLEAR
  149. TEXT Effacement du contenu antérieur de <dest>...
  150. FOREACH name = <names>
  151.  DEL <dest>\<name>*.*
  152. NEXT
  153. DEL <dest>\FS_*.DRV
  154. DEL <dest>\SC_*.DRV
  155. DEL <dest>\PR_*.DRV
  156. DEL <dest>\GR_*.DRV
  157. DEL <dest>\_DW_*.*
  158. DEL <dest>\ADL_MSGS.*
  159. DEL <dest>\DW.EXE
  160. DEL <dest>\UPDATE.EXE
  161. SET ch = 3
  162. GOTO okpath
  163.  
  164. CHOICE 3
  165. CLEAR
  166. TEXT Suppression du répertoire <dest>...
  167. FOREACH name = <names>
  168.  DEL <dest>\<name>*.*
  169. NEXT
  170. DEL <dest>\FS_*.DRV
  171. DEL <dest>\SC_*.DRV
  172. DEL <dest>\PR_*.DRV
  173. DEL <dest>\GR_*.DRV
  174. DEL <dest>\_DW_*.*
  175. DEL <dest>\ADL_MSGS.*
  176. DEL <dest>\DW.EXE
  177. DEL <dest>\UPDATE.EXE
  178. IF NOT EXISTS <dest>\*.* GOTO remdest
  179. TEXT Le répertoire <dest> contient des fichiers non répertories,
  180. ---- le répertoire n'est pas supprimé !!
  181. WAIT
  182. GOTO norem
  183. :remdest
  184. RD <dest>
  185. :norem
  186. DEL <dstdrive>\<prod>.BAT
  187. GOTO end2
  188.  
  189. CHOICE 4
  190. SET alter = Y
  191. SET confile = <dest>\_DW_.CFG
  192. GOTO okpath
  193.  
  194. CHOICE 5
  195. GOTO end2
  196. ENDCHOICES
  197.  
  198. :nopath
  199. MD <dest>
  200. IF NOT DIREXISTS <dest> GOTO getdir
  201. ;TFPL -8-6-93
  202. TEXT New Installation
  203. NEWMENU 1, 3, 64
  204. MENU Installer le logical et seulement l'interface françcias
  205. MENU Installer le logical et les interfaces pour toutes les langues
  206. ENDCHOICES
  207.  
  208. CHOICE1
  209. SET ch = 2
  210. GOTO okpath
  211.  
  212. CHOICE2
  213. SET ch = 3
  214. GOTO okpath
  215. ENDCHOICES
  216.  
  217. :okpath
  218.  
  219. ;----------------------------------------------------------------------------
  220.  
  221. IF NOT EXISTS <confile> GOTO no_config
  222. DISP 5,14 Reading configuration...
  223. READCONFIG <confile>
  224. :no_config
  225.  
  226. ;----------------------------------------------------------------------------
  227.  
  228. HSCOUNT hs
  229. IF NOT <hs>==0 GOTO have_hs
  230.  
  231. CLEAR
  232. TEXT  Problème - Aucune unité CD-ROM n'est installée.  \n\n Veuillez utiliser le
  233. ---- disque d'installation fourni par votre fabricant d'unité CD-ROM pour
  234. ---- installer le questionnaire de périphériques.  Puis réexecutez le programme
  235. ---- d'installation. \n\n
  236. ---- Remarque : le disque d'installation de l'unité CD-ROM reproduira quelques
  237. ---- fichiers sur votre disque système et modifiera les fichiers
  238. ---- CONFIG.SYS et AUTOEXEC.BAT.
  239. ---- D'autres programmes utilisent MSCDEX, il est recommande de supprimer
  240. ---- la ligne d'appel de ce programme de votre fichier AUTOEXEC.BAT, étant
  241. ---- donné que ce logiciel n'en a pas besoin.  Assurez vous de
  242. ---- réinitialiser votre système une fois que les modules CD-ROM sont
  243. ---- installés.
  244. WAIT
  245. ABORT
  246.  
  247. :have_hs
  248. ;TFPL 19-11-93
  249. GOTO get_hs_letter
  250.  
  251. SET msg =
  252. IF <hs>==1 GOTO instOne
  253.  
  254. TEXT Vous pouvez choisir parmi différentes unités CD-ROM <def_cdtype>.  Avec
  255. ---- l'aide des touches  et , sélectionnez le périphérique CD-ROM
  256. ---- <def_cdtype> dans la liste, puis appuyez sur ┘ (Entrée) lorsque vous êtes
  257. ---- prêt à commencer.  Appuyez sur Echap pour interrompre l'installation.
  258. GOTO :instMore
  259.  
  260. :instOne
  261. SET msg = Un module CD-ROM <def_cdtype> est installe (voir CONFIG.SYS):\n\n
  262.  
  263. :instMore
  264. HSDRIVER hsname = 25, 6
  265. CONFIG Driver = "<def_driver>=<hsname>"
  266. CLEAR
  267. TEXT <msg> Le module CD-ROM <def_cdtype> sélectionné est nommé "«<hsname>»".  Dans le cas ou cette information est érronee, appuyez sur Echap pour
  268. ---- interrompre l'installation et vérifiez votre fichier CONFIG.SYS.
  269. ---- Il n'est pas nécessaire de faire appel au programme MSCDEX.EXE
  270. ---- (Extensions CD-ROM de Microsoft) pour exécuter ce logiciel.
  271. ---- A moins qu'il soit nécessaire pour un autre logiciel, vous pouvez
  272. ---- supprimer ce programme de votre fichier \AUTOEXEC.BAT (dans lequel
  273. ---- le programme d'installation de l'unité peut l'avoir placé).
  274.  
  275. WAIT
  276.  
  277. CLEAR
  278. TEXT Copie de l'interface CD-ROM <def_cdtype>...
  279. SET driver_name = <def_driver>.DRV
  280. GOSUB copy_driver
  281. ;TFPL 19-11-93
  282. :get_hs_letter
  283. CLEAR
  284. :tfpl_drive
  285. GOTO tfp1
  286. :drive_error
  287. TEXT Error: The database is not available on the specified drive...\n\n
  288. :tfp1
  289. TEXT \n\n
  290. ----Taper la lettre attribué à votre lecteur de CD-ROM \n
  291. ----(en général "D")...
  292.  
  293. INPUT 2,10,1 inst_drive = CD-ROM ?
  294. IF "inst_drive"=="" GOTO drive_error
  295. IF NOT DIREXISTS <inst_drive>:\ GOTO drive_error
  296. IF NOT EXISTS <inst_drive>:\TTLEDD00 GOTO drive_error
  297.  
  298. ;SET instdrive = <inst_drive>:\
  299. CONFIG Driver = "<inst_drive>:\"
  300. ;CONFIG MaskPath = "<inst_drive>:\DISK1"
  301.  
  302. ;---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- -
  303. :disp_choice
  304. CLEAR
  305. TEXT Options Ecran :\n
  306. ---- Avec l'aide des flèches  et , sélectionnez un type d'écran, puis appuyez sur ┘ (Entrée).
  307.  
  308.  
  309. NEWMENU ? 6 46
  310. MENU Ecran standard        Pas de graphiques
  311. MENU Adaptateur VGA
  312. MENU Adaptateur MCGA
  313. MENU Adaptateur EGA
  314. MENU Adaptateur CGA
  315. MENU Carte graphique Hercules
  316. MENU Olivetti, AT&T ou Compaq Plasma
  317. MENU Ecran entièr
  318.  
  319. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  320. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  321. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  322. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  323. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  324. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  325. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  326.  
  327. SET Port = N
  328. SET Graphic = N
  329.  
  330. CHOICE 1
  331.  SET scr_type = SC_STD
  332.  SET Port = ?
  333. CHOICE 2
  334.  SET scr_type = SC_VGA
  335.  SET Port = ?
  336. CHOICE 3
  337.  SET scr_type = SC_MCGA
  338.  SET Port = ?
  339. CHOICE 4
  340.  SET scr_type = SC_EGA
  341.  SET Port = ?
  342. CHOICE 5
  343.  SET scr_type = SC_CGA
  344.  SET Port = ?
  345. CHOICE 6
  346.  SET scr_type = SC_HERC
  347. CHOICE 7
  348.  SET scr_type = SC_ATT
  349.  SET Port = ?
  350. CHOICE 8
  351.  SET scr_type = FP
  352. ENDCHOICES
  353.  
  354. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  355.  
  356. CLEAR
  357. TEXT Options Ecran :\n
  358. ---- Avec l'aide des flèches  et , sélectionnez un type d'écran, puis appuyez sur ┘ (Entrée).
  359.  
  360. NEWMENU ? 6 46
  361. MENU Cornerstone FullPage
  362. MENU MDS Genius
  363.  
  364. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  365. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  366.  
  367. CHOICE 1
  368.  SET scr_type = SC_CNRST
  369. CHOICE 2
  370.  SET scr_type = SC_MDS
  371. ENDCHOICES
  372.  
  373. :not_full_page
  374.  
  375. SET extra =
  376. IF NOT "<Port>" == "?" GOTO no_scr_opts
  377.  
  378. CLEAR
  379. TEXT Copie du module d'écran...
  380. ---- Avec l'aide des flèches  et , sélectionnez un type d'écran, puis appuyez sur ┘ (Entrée).
  381.  
  382.  
  383.  NEWMENU ? 6 52
  384.  MENU Ecran standard       Moniteur Couleur ou monochrome
  385.  MENU Ordinateur portatif  Ecran monochrome intégré
  386.  IF "<scr_type>"=="SC_CGA" DO MENU Older Color Screens - interference or "snow"
  387.  
  388. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  389.  
  390. CHOICE 2
  391.   SET extra = P
  392. CHOICE 3
  393.   SET extra = F
  394. ENDCHOICES
  395.  
  396. :no_scr_opts
  397.  
  398. CONFIG Screen = "<scr_type>=<extra>"
  399.  
  400. CLEAR
  401. TEXT Copie du module d'écran
  402. SET driver_name = <scr_type>.DRV
  403. GOSUB copy_driver
  404.  
  405. ;---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- -
  406.  
  407. CLEAR
  408. TEXT Sélections d'imprimantes:\n
  409. ---- Avec l'aide des flèches  et , sélectionnez l'imprimante desirée\n
  410. ---- et appuyez sur ┘ (Entrée).
  411.  
  412. SET extra =
  413.  
  414. NEWMENU ? 6 46
  415. MENU Famille HP LaserJet
  416. MENU Famille HP DeskJet
  417. MENU Contrôleur imprimante JLaser
  418. MENU Autre imprimante
  419.  
  420. CHOICE 1
  421.   SET prn_type = PR_PCL?
  422. CHOICE 2
  423.   SET prn_type = PR_DJ?
  424. CHOICE 3
  425.   SET prn_type = PR_JL?
  426. CHOICE 4
  427.   SET prn_type = PR_STD
  428. ENDCHOICES
  429.  
  430. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  431. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  432. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  433. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  434.  
  435. :pr_type_1
  436.  
  437.   CLEAR
  438.  
  439.   GOSUB pr_detail
  440.  
  441.   NEWMENU ? 6 46
  442.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  443.   MENU HP LaserJet Series II, IID
  444.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  445.  
  446.   CHOICE 1
  447.     SET extra = R
  448.   CHOICE 2
  449.     SET extra = X
  450.   CHOICE 3
  451.     SET extra = XG
  452.   ENDCHOICES
  453.  
  454.   GOSUB pr_detail
  455.  
  456.   NEWMENU ? 6 46
  457.   MENU 300 Dpi (mémoire   1Mb)
  458.   MENU 150 Dpi (mémoire 512Kb)
  459.   MENU 75  Dpi (mémoire 256Kb)
  460.  
  461.   CHOICE 1
  462.     SET prn_type = PR_PCL30
  463.   CHOICE 2
  464.     SET prn_type = PR_PCL15
  465.   CHOICE 3
  466.     SET prn_type = PR_PCL75
  467.   ENDCHOICES
  468.  
  469.   GOTO pr_type_ok
  470.  
  471. :pr_type_2
  472.  
  473.   GOSUB pr_detail
  474.  
  475.   NEWMENU ? 6 46
  476.   MENU HP DeskJet(+)
  477.   MENU HP DeskJet 500
  478.   MENU HP DeskJet 500C
  479.  
  480.   CHOICE 1
  481.     SET extra = X
  482.   CHOICE 2
  483.     SET extra = XG
  484.   CHOICE 3
  485.     SET extra = XG
  486.   ENDCHOICES
  487.  
  488.   GOSUB pr_detail
  489.  
  490.   NEWMENU ? 6 46
  491.   MENU 300 Dpi
  492.   MENU 150 Dpi
  493.   MENU 75  Dpi
  494.  
  495.   CHOICE 1
  496.     SET prn_type = PR_PCL30
  497.   CHOICE 2
  498.     SET prn_type = PR_PCL15
  499.   CHOICE 3
  500.     SET prn_type = PR_PCL75
  501.   ENDCHOICES
  502.  
  503.   GOTO pr_type_ok
  504.  
  505. :pr_type_3
  506.  
  507.   GOSUB pr_detail
  508.  
  509.   NEWMENU ? 6 46
  510.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  511.   MENU HP LaserJet (autres modèles)
  512.   MENU Canon LBP (tous modèles)
  513.  
  514.   CHOICE 1
  515.     SET prn_type = PR_JLHP
  516.     SET extra = R
  517.   CHOICE 2
  518.     SET prn_type = PR_JLHP
  519.     SET extra = X
  520.   CHOICE 3
  521.     SET prn_type = PR_JLCAN
  522.   ENDCHOICES
  523.  
  524.   GOTO pr_type_ok
  525.  
  526. :pr_type_4
  527.  
  528.   GOSUB pr_detail
  529.  
  530.   NEWMENU ? 6 46
  531.   MENU PC série de 8 bit caractères
  532.   MENU National de 7 bit caractères
  533.  
  534.   CHOICE 2
  535.     SET extra = 7
  536.   ENDCHOICES
  537.  
  538.   GOTO pr_type_ok
  539.  
  540. :pr_detail
  541. CLEAR
  542. TEXT Choix des détails d'imprimante:\n
  543. ----   Utiliser les flèches  et  pour choisir les options de\n
  544. ----   l'imprimante et poussez ┘ (Enter)
  545. RETURN
  546.  
  547. :pr_type_ok
  548.  
  549. SET port =
  550.  
  551. NEWMENU ? 6 40
  552. MENU LPT1       Imprimante parallèle    # 1
  553. MENU COM1       Imprimante séquentielle # 1
  554. MENU LPT2       Imprimante parallèle    # 2
  555. MENU COM2       Imprimante séquentielle # 2
  556. MENU LPT3       Imprimante parallèle    # 3
  557. MENU LPT4       Imprimante parallèle    # 4
  558. MENU PRN        L'imprimante courante DOS
  559.  
  560. CLEAR
  561. TEXT Choix des connexions d'imprimante:\n
  562. ----   Utiliser les flèches  et  pour choisir le port de\n
  563. ----   l'imprimante et poussez ┘ (Enter)
  564.  
  565. CHOICE 1
  566.  SET port = LPT1,
  567. CHOICE 2
  568.  SET port = COM1,
  569. CHOICE 3
  570.  SET port = LPT2,
  571. CHOICE 4
  572.  SET port = COM2,
  573. CHOICE 5
  574.  SET port = LPT3,
  575. CHOICE 6
  576.  SET port = LPT4,
  577. CHOICE 7
  578.  SET port = PRN,
  579. ENDCHOICES
  580.  
  581. CONFIG Printer = "<prn_type>=<port><extra>"
  582.  
  583. CLEAR
  584. TEXT Copie des connexions d'imprimante...
  585. SET driver_name = <prn_type>.DRV
  586. GOSUB copy_driver
  587.  
  588. ;---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- -
  589.  
  590. IF "<alter>"=="Y" GOTO done
  591.  
  592. :read_disk
  593. GOSUB need_disk
  594. ;TFPL 8-6-93
  595. IF "<ch>"=="2" GOTO inst_only_eng
  596. IF "<ch>"=="3" GOTO inst_all
  597.  
  598. :inst_only_eng
  599. CLEAR
  600.  
  601. TEXT Installation des fichiers du logiciel et de l'interface français on cours....
  602. COPY_OPT <insdrive>\DISK<curdisk>\*.FRA <dest>
  603. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  604. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  605. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  606. COPY_OPT <ins>\_DW_MSGS.FRA <dest>
  607. COPY_OPT <ins>\ADL_MSGS.FRA <dest>
  608. GOTO adl_dw_message
  609.  
  610. :inst_all
  611. ;TFPL
  612.  
  613.  
  614. CLEAR
  615. TEXT Installation des fichiers d'applications à partir du disque
  616. ---- d'installation <curdisk>...
  617. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  618.  
  619. ;TFPL 8-6-93
  620. COPY_OPT <ins>\_DW_MSGS.* <dest>
  621. COPY_OPT <ins>\ADL_MSGS.* <dest>
  622. GOTO adl_dw_message
  623.  
  624. :inst_only_soft
  625. CLEAR
  626.  
  627. TEXT Installing only software files...
  628. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  629. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  630. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  631. COPY_OPT <ins>\_DW_MSGS.* <dest>
  632. COPY_OPT <ins>\ADL_MSGS.* <dest>
  633. ;TFPL
  634.  
  635.  
  636. ;Copy adl and dw message files
  637. :adl_dw_message
  638. IF NOT DIREXISTS <ins> GOTO skip_message_files
  639. COPY_OPT <ins>\UPDATE.EXE <dest>
  640. :skip_message_files
  641.  
  642. CALC curdisk = <curdisk> + 1
  643. IF EXISTS <insdrive>MORE GOTO read_disk
  644.  
  645. CONFIG Language = "<def_lang>"
  646. goto DONE
  647.  
  648. :abort
  649. if "<dest>"=="" GOTO nofiles
  650. if "<alter>"=="Y" GOTO nofiles
  651. CLEAR
  652. TEXT \n\n!!! Installation interrompue !!!\n\n
  653. ---- Suppression des fichiers copiés...
  654. UNCOPY
  655. :nofiles
  656. CLEAR
  657. TEXT \n\n!!! Installation interrompue !!!\n\n
  658. goto END
  659.  
  660. :copy_driver
  661. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  662. CALC curdisk = <curdisk> + 1
  663. GOSUB need_disk
  664. GOTO copy_driver
  665. :ok_copy
  666. COPY <ins>\<driver_name> <dest>
  667. RETURN
  668.  
  669. :need_disk
  670. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  671. :retry_disk2
  672. CLEAR
  673. TEXT Introduisez le disque d'installation numéro <curdisk> et appuyez sur ┘ (Entrée) lorsque vous êtes prêt à commencer.
  674. WAIT
  675. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  676.  
  677. CLEAR
  678. TEXT Le disque introduit n'est pas le disque d'installation numéro <curdisk> !
  679. NEWMENU ?, 3, 15
  680. MENU Réessayer
  681. MENU Abondonner
  682.  
  683. CHOICE 1
  684. GOTO retry_disk2
  685. ENDCHOICES
  686.  
  687. ABORT
  688.  
  689. :done
  690. CLEAR
  691. TEXT Mise à jour des textes
  692. WRITECONFIG <dest>\_DW_.CFG
  693. IF "<alter>"=="Y" GOTO end
  694. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  695.  
  696. CLEAR
  697. TEXT \nL'installation est terminée !\n\n
  698. ----Un fichier appelé <prod> a été crée dans le répertoire <dstdrive>. \n\nPour exécuter le programme, tapez : <prod> ┘\n\n
  699. ----Important: Pour que cette commande fonctionne selon les indications,
  700. ---- vous devez être dans le répertoire <dstdrive>\ ou ce répertoire doit
  701. ---- se trouver dans la commande PATH.
  702.  
  703.  
  704.  
  705. :end
  706. WAIT
  707.  
  708. :end2
  709. CD <$CurDir>
  710.  
  711.  
  712.  
  713.  
  714.  
  715.                    
  716.